(byte-compile-unfold-lambda): Don't

recursively optimize body because that can lead to infinite
recursion; see comment there.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index c3c8e6772395baa670c9ec0a14f4d41fe5d65ece..da69538660482b8b64c2decb0638501eaff5677e 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -340,7 +340,12 @@
                (byte-compile-warn
                 "Attempt to open-code `%s' with too many arguments" name))
            form)
-       (setq body (mapcar 'byte-optimize-form body))
+       
+       ;; The following leads to infinite recursion when loading a
+       ;; file containing `(defsubst f () (f))', and then trying to
+       ;; byte-compile that file.
+       ;(setq body (mapcar 'byte-optimize-form body)))
+       
        (let ((newform 
               (if bindings
                   (cons 'let (cons (nreverse bindings) body))